home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / msqllib / install_script < prev    next >
Text File  |  1999-01-01  |  5KB  |  289 lines

  1.  
  2. ; $VER: Install msql.library V5 (17.11.98)
  3. ;
  4. ;    Installer script for msql.library
  5. ;
  6.  
  7.     (set UserLevel.old @user-level)
  8.  
  9. ; Initialize messages.
  10.  
  11.     (set #SelDDoc "\nSelect the drawer where you want the msql documentation will be install.\n")
  12.     (set #SelDINC "\nSelect the drawer where you want the include files will be install.\n")
  13.     (set #SelDFD "\nSelect the drawer where you want the fd files will be install.\n")
  14.     (set #SelDADOC "\nSelect the drawer where you want the msql autodoc (text & AG) will be install.\n")
  15.     (set #SelBDoc "\nDo you want to install the documentation (not the autodoc)?\n")
  16.     (set #SelBADOC "\nDo you want to install the autodoc ?\n")
  17.     (set #SelBDev "\nDo you want to install the developper (SAS/C \ AZTEC/C \ MAXON \ STROM/C) material?\n")
  18.     (set #SelBDevG "\nDo you want to install the GeekGadget (GCC) developper material?\n")
  19.     (set #SelBDevE "\nDo you want to install the AmigaE developper material?\n")
  20.     (set #SelDLib "\nSelect the drawer where you want the msql.library will be install.\n")
  21.     (set #SelDGCC "\nSelect the drawer where you want the GeekGadget developper material will be install.\n")
  22.     (set #SelDE "\nSelect the drawer where you want the AmigaE developper material will be install.\n")
  23.     (set #SelDmUSD "\nSelect the drawer where you want mUSD will be install.\n")
  24.     (set #SelmUSDAS "\nRun mUSD at startup?\n")
  25.     (set #SelLine1 "Following line will be add to your user-startup file:\nRun >NIL: <NIL: ")
  26.  
  27. (procedure InstallLibs
  28. (
  29.           (copylib (source "libs/msql.library")
  30.                  (dest LIBDest)
  31.                  (prompt))
  32. ))
  33.  
  34. (procedure InstallDoc
  35. (
  36.           (copyfiles (source "msql.guide")
  37.                  (dest DOCDest)
  38.                  (all))
  39. ))
  40.  
  41. (procedure InstallInc
  42. (
  43.           (copyfiles (source "include/")
  44.                  (dest INCDest)
  45.                  (all))
  46. ))
  47.  
  48. (procedure InstallFd
  49. (
  50.           (copyfiles (source "fd/")
  51.                  (dest FDDest)
  52.                  (all))
  53. ))
  54.  
  55. (procedure InstallADoc
  56. (
  57.           (copyfiles (source "doc/")
  58.                  (dest ADOCDest)
  59.                  (all))
  60. ))
  61.  
  62. (procedure InstallmUSD
  63. (
  64.           (copyfiles (source "tools/")
  65.                  (dest mUSDDest)
  66.                  (all))
  67. ))
  68.  
  69. (procedure InstallmUSDS
  70. (
  71.     (set #SelAss (cat (cat #SelLine1 (tackon mUSDDest "mUSD")) " \n"))
  72.     (startup "mUSD"
  73.             (help @startup-help)
  74.             (command
  75.                 (cat "run >NIL: <NIL: "
  76.                     (tackon mUSDDest "mUSD")
  77.                 )
  78.             )
  79.             (prompt #SelAss)
  80.     )
  81. ))
  82.  
  83. (procedure InstallGCC
  84. (
  85.           (copyfiles (source "gcc/")
  86.                  (dest GCCDest)
  87.                  (all))
  88. ))
  89.  
  90. (procedure InstallE
  91. (
  92.           (copyfiles (source "e/")
  93.                  (dest EDest)
  94.                  (all))
  95. ))
  96.  
  97. ; Welcome the user.
  98.  
  99.     (complete 0)
  100.     (welcome)
  101.  
  102.  
  103. ; Prepare Install
  104.  
  105.     (set LIBSource "libs/")
  106.  
  107. ; Libs dest.
  108.  
  109.     (set LIBDest
  110.       (tackon
  111.         (askdir
  112.           (prompt #SelDLIB)
  113.           (help @askdir-help)
  114.           (default "Libs:")
  115.         )
  116.         ""
  117.       )
  118.     )
  119.  
  120. ; mUSD dest.
  121.  
  122.     (set mUSDDest
  123.       (tackon
  124.         (askdir
  125.           (prompt #SelDmUSD)
  126.           (help @askdir-help)
  127.           (default "c:")
  128.         )
  129.         ""
  130.       )
  131.     )
  132.  
  133. ; Install mUSD at startup ?
  134.  
  135.     (set mUSDbool
  136.       (askbool
  137.         (prompt #SelmUSDAS)
  138.         (help @askbool_help)
  139.         (default 0)
  140.       ))
  141.  
  142. ; Install doc ?
  143.  
  144.     (set docbool
  145.       (askbool
  146.         (prompt #SelBDoc)
  147.         (help @askbool_help)
  148.         (default 1)
  149.       ))
  150.  
  151. ; where ?
  152.  
  153.     (set DOCSource "msql.guide")
  154.  
  155.     (if docbool
  156.     (set DOCDest
  157.       (tackon
  158.         (askdir
  159.           (prompt #SelDDoc)
  160.           (help @askdir-help)
  161.           (default "help:")
  162.         )
  163.         ""
  164.       )
  165.     ))
  166.  
  167. ; Install dev material ?
  168.  
  169.     (set devbool
  170.       (askbool
  171.         (prompt #SelBDev)
  172.         (help @askbool_help)
  173.         (default 0)
  174.       ))
  175.  
  176. ; where ?
  177.  
  178.  
  179.     (if devbool
  180.     (set INCDest
  181.       (tackon
  182.         (askdir
  183.           (prompt #SelDINC)
  184.           (help @askdir-help)
  185.           (default "include:")
  186.         )
  187.         ""
  188.       )
  189.     ))
  190.  
  191.     (if devbool
  192.     (set FDDest
  193.       (tackon
  194.         (askdir
  195.           (prompt #SelDFD)
  196.           (help @askdir-help)
  197.           (default "fd:")
  198.         )
  199.         ""
  200.       )
  201.     ))
  202.  
  203. ; Install Geek dev material ?
  204.  
  205.     (set gdevbool
  206.       (askbool
  207.            (prompt #SelBDevG)
  208.         (help @askbool_help)
  209.         (default 0)
  210.       ))
  211.     
  212.     (if gdevbool
  213.     (set GCCDest
  214.       (tackon
  215.         (askdir
  216.           (prompt #SelDGCC)
  217.           (help @askdir-help)
  218.           (default "gg:")
  219.         )
  220.         ""
  221.       )
  222.     ))
  223.  
  224. ; Install E dev material ?
  225.  
  226.     (set edevbool
  227.       (askbool
  228.            (prompt #SelBDevE)
  229.         (help @askbool_help)
  230.         (default 0)
  231.       )
  232.     )
  233.  
  234.     (if edevbool
  235.     (set EDest
  236.       (tackon
  237.         (askdir
  238.           (prompt #SelDE)
  239.           (help @askdir-help)
  240.           (default "")
  241.         )
  242.         ""
  243.       )
  244.     ))
  245.  
  246. ; Install Autodoc ?
  247.  
  248.     (set adbool
  249.       (askbool
  250.            (prompt #SelBADOC)
  251.         (help @askbool_help)
  252.         (default 0)
  253.       )
  254.     )
  255.  
  256.     (if adbool
  257.     (set ADOCDest
  258.       (tackon
  259.         (askdir
  260.           (prompt #SelDADOC)
  261.           (help @askdir-help)
  262.           (default "autodoc:")
  263.         )
  264.         ""
  265.       )
  266.     ))
  267.  
  268.  
  269. ; Install all
  270.  
  271.     (InstallLibs)
  272.     (InstallmUSD)
  273.     (complete 25)
  274.     (if mUSDbool) (InstallmUSDS)
  275.     (if docbool (InstallDoc))
  276.     (complete 50)
  277.     (if devbool (InstallInc))
  278.     (if devbool (InstallFd))
  279.     (complete 75)
  280.     (if adbool (InstallADoc))
  281.     (if gdevbool (InstallGCC))
  282.     (if edevbool (InstallE))
  283.     (complete 100)
  284.  
  285. ; exit
  286.  
  287.     (set @default-dest "")
  288.     (exit)
  289.